#' Transforma lm
#'
#' Chooses the 'best' transformation in the sense of AIC, R.Squared, Skewness or Kurtosis; For positive y compares between Box-Cox, Dual and Manly transformations; For all values of y it compares between Yeo-Johnson, Manly, Modulus and Bickel-Doksum
#' @param object of type lm with the model to transform
#' @param \dots additional arguments to be passed to the estimation function; see doselectTransformation()
#' @return an object of class \code{transformation}; see doselectTransformation()
#' @keywords internal
#' @export
selectTransformation.lm <- function(object, ...) {
model_frame <- object$model
if (is.null(y <- model.response(model_frame)))
stop("Dependent variable y must not be empty")
if (is.null(x <- model.matrix(attr(model_frame, "terms"), data = model_frame)))
stop("Matrix of covariates X must not be empty")
data <- data.frame(y = y, x = x)
doselectTransformation(data,...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.